cond
start
*.tielen1 debugint
*.tielen2 debugint
*.tielen3 debugint
*.tielen4 debugint
*.tieang1 debugint
*.tieang2 debugint
*.tieang3 debugint
*.tieang4 debugint
stop

cond
*.robage
1010
>
*.robage
2310
<
*970
4
=
start
3 .aimleft store
400 .tielen1 store
300 .tielen2 store
200 .tielen3 store
100 .tielen4 store
0 .tieang1 store
314 .tieang2 store
628 .tieang3 store
956 .tieang4 store
'16 .mkchlr store
'5 .sharechlr store
stop

cond
start
*.tielen1 debugint
*.tielen2 debugint
*.tielen3 debugint
*.tielen4 debugint
*.tieang1 debugint
*.tieang2 debugint
*.tieang3 debugint
*.tieang4 debugint
stop

cond
*.robage
100
=
*971
0
=
start
314 .setaim store
stop

cond
*.robage
101
=
*971
0
=
start
971 inc
970 inc
30 .repro store
stop

cond
*.robage
102
=
*971
0
=
*970
1
=
or
start
4 .tie store
50 .stifftie store
stop

cond
*.robage
200
=
*971
0
=
*970
1
=
or
start
628 .setaim store
-314 .fixang store
30 .fixlen store
stop

cond
*.robage
201
=
*971
0
=
*970
1
=
or
start
970 inc
37 .repro store
stop

cond
*.robage
202
=
*971
0
=
*970
2
=
or
start
3 .tie store
50 .stifftie store
stop

cond
*.robage
300
=
*971
0
=
*970
2
=
or
start
942 .setaim store
-314 .fixang store
30 .fixlen store
stop

cond
*.robage
301
=
*971
0
=
*970
2
=
or
start
970 inc
44 .repro store
stop

cond
*.robage
302
=
*971
0
=
*970
3
=
or
start
3 .tie store
50 .stifftie store
stop

cond
*.robage
400
=
*971
0
=
*970
3
=
or
start
0 .setaim store
-314 .fixang store
30 .fixlen store
stop

cond
*.robage
401
=
*971
0
=
*970
3
=
or
start
970 inc
50 .repro store
stop

cond
*.robage
402
=
*971
0
=
*970
4
=
or
start
3 .tie store
50 .stifftie store
stop

cond
*.robage
500
=
*971
0
=
*970
4
=
or
start
314 .setaim store
-314 .fixang store
stop


end